perm filename XXX.TES[C,JRA] blob sn#056879 filedate 1973-08-07 generic text, type T, neo UTF8
00100	(DE APPLY L(COND((GETL(ARG 1)(QUOTE(EXPR LSUBR SUBR)))
00200	(APPLY# (ARG 1)(ARG 2)))
00300	 (T(EVAL(CONS(ARG 1)(ARG 2))))))
00400	(PUTPROP 'APPLY#(GET 'APPLY 'LSUBR) 'LSUBR)
00500